﻿<!-- #include file="mymin.asp" -->
<%
If Request("submit") <> "" Then

	adminipcheck=Request.Form("adminipcheck")
	admintimecheck=Request.Form("admintimecheck")
	adminupload=Request.Form("adminupload")
	adminupdate=Request.Form("adminupdate")
	adminsize=Request.Form("adminsize")
	adminarticle=forQuote(Request.Form("adminarticle"))
	if adminipcheck<>"0" then adminipcheck = 1
	if admintimecheck<>"0" then admintimecheck = 1
	if adminupdate="" or IsNumeric(adminupdate)=False then adminupdate = 0
	if adminsize="" or IsNumeric(adminsize)=False then adminsize = 0
	if adminupload<>"1" then adminupload = 2
	' Dim sid_
	' sid_ = Request.Form("bbssid")
	' If sid_ <> "" And ifLetter(sid_)=False Then Call Error("<card title='出错'><p>论坛会话标识无效！")
	' if len(Request.Form("numtitle"))<1 then
		' Call Error("<card title='出错'><p>请输入！")
	' end if
	'----------------------------------------------------------------
	'	生成admin.asp文件
	'----------------------------------------------------------------
	dim HU_Config,HU_File

	HU_File= "../../config/admin.asp"'生成bbs.asp文件路径

	HU_Config="<"&"%"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminupdate="""&adminupdate&""" '系统升级维护"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminipcheck="""&adminipcheck&""" '后台IP异常检测"
	HU_Config=HU_Config+chr(13)&chr(10)&"admintimecheck="""&admintimecheck&""" '后台登录时间检测"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminupload="""&adminupload&""" '后台上传系统"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminarticle="""&adminarticle&""" '文章默认来源"
	HU_Config=HU_Config+chr(13)&chr(10)&"adminsize="""&adminsize&""" '文件上传限制"
	HU_Config=HU_Config+chr(13)&chr(10)&"%"&">"
	Call savetofile(HU_Config,HU_File)
	Response.Write "<card id='card2' title='正在返回' ontimer='index.asp?sid="&sid&"'><timer value='10'/><p>"
	Response.Write "成功设置！正在返回..."
else%>
<card id="index" title="网站后台配置">
<p align="left">
系统维护:<input name="adminupdate<%=time_r%>" value="<%=adminupdate%>" size="3"/>(小时)<br/>
后台IP异常检测:<select name="adminipcheck<%=time_r%>" value="<%=adminipcheck%>">
<option value="1">开启</option>
<option value="0">关闭</option>
</select><br/>
后台登录时间检测:<select name="admintimecheck<%=time_r%>" value="<%=admintimecheck%>">
<option value="1">开启</option>
<option value="0">关闭</option>
</select><br/>
系统上传系统:<select name="adminupload<%=time_r%>" value="<%=adminupload%>">
<option value="1">无名上传类</option>
<option value="2">无惧上传类</option>
</select><br/>
文章默认来源:<input type="text" name="adminarticle<%=time_r%>" value="<%=adminarticle%>" maxlength="15"/><br/>
文件上传限制:<input type="text" name="adminsize<%=time_r%>" value="<%=adminsize%>" maxlength="5" size="3"/>(KB)<br/>
<anchor>保存配置
<go href="admin.asp?submit=true&amp;sid=<%=sid%>" method="post">
<postfield name="adminipcheck" value="$(adminipcheck<%=time_r%>)"/>
<postfield name="adminupdate" value="$(adminupdate<%=time_r%>)"/>
<postfield name="admintimecheck" value="$(admintimecheck<%=time_r%>)"/>
<postfield name="adminupload" value="$(adminupload<%=time_r%>)"/>
<postfield name="adminarticle" value="$(adminarticle<%=time_r%>)"/>
<postfield name="adminsize" value="$(adminsize<%=time_r%>)"/>
</go>
</anchor><br/>
温馨提示:<br/>
1、关闭后台检测会降低网站安全性，站长IP不稳定可考虑关闭<br/>
2、系统维护:大于0则表示网站进入维护，前台只显示维护信息
<%end if%><br/>
<a href="index.asp?sid=<%=sid%>">[网站配置]</a><%call Last%>